//---------------------------------------------------------------------------

#include "vcl_stl.h"
#pragma hdrstop

#include "t_messageform.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TMessageForm *MessageForm;
//---------------------------------------------------------------------------
__fastcall TMessageForm::TMessageForm(TComponent* Owner)
   : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TMessageForm::ButtonOkClick(TObject *Sender)
{
   Close();
}
//---------------------------------------------------------------------------
void __fastcall TMessageForm::ShowMessage(const UTF8String &Msg)
{
   Label1->Caption = Msg;
   ShowModal();
}
